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$8 1 eTITL f DD TOR VR - CONSOLE TUS8 BOOT DRIVER 
0 § -IDENT ‘v04-000' 
| 900 4; 
| 009 5 FRRAAAERA AEA AEA HAE AAERAAAAAAAAAAAAAAAAARARAARAAAAAAEKAAEREAEA AERA ee eee e 
3 4 
000 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
000 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 1 :* ALL RIGHTS RESERVED. * 
4 ® 
itd 11 ;* THIS SOFTWARE IS Fant SHED UNDER A LICENSE AND MAY BE USED AND copieD * 
464 1 :* ONLY IN ACCORDANCE WITH T TERMS OF SUCH LICENSE AND WITH THE * 
00 13 ;* INCLUSION OF Mg oa nat Spit NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
464 :* TRANSFERRED. * 
D4 ® 
0000 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 Y :* CORPORATION. + 
é ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. x 
0000 4 3 + 
0000 5 ;3* * 
464 $3 FPR ERA AA AAR AEAR AEE EAREAREAAAAAAAAAAAREAAAAARAEAAARARAAAEAAKeeAeAeAeeeAeAeeee 
0000 Se 
0000 9 34+ 
0000 0 ; FACILITY: BOOTS 
0000 1 3 
0000 ; 3; ABSTRACT: 
0000 33 3 This eodule contains the bootstrap device driver for the 
464 35 : console TUS8. 
4 $$ : ENVIRCNMENT: IPL 31, kernel mode, code must be PIC 
9000 38 : AUTHOR: Steve Beckhardt, Creation Date: 1-Nov-1979 
0000 40 : MODIFIED BY: 
0000 41; 
0000 4g 3 v03-002 RLRCPUDISP Robert L. Rappaport 15-Jun-1983 
4 a7 3 Recode CPUDISP macros to use new format. 
itd 45: v03-001 TCMO0003 Trudy C. Matthews 15-Feb-1983 
0000 46 ; Update CPUDISP to tatlade 790 path. 
0000 47; 
0000 48 ;-- 
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15-SEP-1984 
£7$Fb= 1382 33 
: .SBTTL DECLARATIONS 

; INCLUDE FILES: 


PRAMAMMAM 
<YnD U0 Um 
>uwou-4z2oO- 
vcvowamvcc’7o 
mmoommneao 
TN TMM wr 


: MACROS: 


: EQUATED SYMBOLS: 


; CONSOLE TUS8 REGISTER DEFINITIONS 


SDEFINI DD 
_VIELD CSRS,0,<- 
<,6>,° 
<lE, M>,- 
<DONE, ,M>,- 
CSRD,0,<- 
<DATA,&>,- 
<,7>,° 
<ERROR, .M>,- 
CSTS,0,<=- 
<BREAK.,M>,= 
<,5>,- 
<iE,.M>,- 
<READY, .M>,- 


CSTD,0,<- 
<DATA,&>,- 


PROTOCOL FLAGS 


88:36 pee Macro v04-00 
205: BOOTS.SRCJDDBTDRIVR.MAR; 1 


Boot device types 

1/0 function codes 
Processor registers 
PTE definitions 

RPB offsets 

Status codes 

Virtual address fields 


;START OF REGISTER DEFINITIONS 
: START OF PROC. REG. CSRS DEFS. 
+ INTERRUPT ENABLE 

DONE 


sSTART OF PROC. REG. CSRD DEFS. 
; DATA 


: UNUSED 
; ERROR 
START OF PROC. REG. CSTS DEFS. 
; BREAK 


: UNUSED 
: INTERRUPT ENABLE 
: READY 


START OF PROC. REG. CSTD DEFS. 
; DATA 


wet 
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00000003 
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DD_CONTINUE = 16 


; FUNCTION CODES 


DD_READ = 2 
DD_WRITE = 3 
DDTENDPKT = 64 


: SWITCH BITS 


} 7 

Hi 

i 

H 

114 

ii 

HH 
Pte 
121 MRSP_SWITCH = 3 
1 g SDEFEND DD 
124 

: 5 

is 

128 

129 

130 

H 

H 

134 

135 


: Boot driver table entry 
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AX/VMS Macro v04-00 


MRSEE= TRS $3:58:28 FRSYES R25 roe yee Tee ans t 


E “ae CONSOLE ,- 


EVTYP 
CTION = SELECT, - 
1ZE = CONSBD _DRVSIZ.- 
DDR = CONSDD-START,- 
NTRY = CONSDD, DRIVER, = 
RIVRNAME = DDNAME 


; Device type (console) 
: Action routine 
; Driver size 
: Driver start 
3; Driver entry 
; Driver file name 


re 


a ee e=" 
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° 133 -SBTTL DD SELECT = Select correct CPUs for this driver 
| oe 
8 139 3; FUNCTIONAL DESCRIPTION: 
$0 126 : This routine is an action routine called by the boot driver 
4 143 ; select code to determine if this is a cpu that has a TuS8 
: Pt: 3 for a console. 
09 146 ; CALLING SEQUENCE: 
990 148 ; JSB DD_SELECT 
9909 130 ; INPUT PARAMETERS: 
9990 13¢ ; EXESGB_CPUTYPE Global variable containing cpu type 
0900 134 : OUTPUT PARAMETERS: 
0000 138 : RO 0 = Do not use this driver 
4 138 3 1 = Use this driver 
9000 139 : MRSP =._'1:«if «this CPU has a TUS8 that speaks MRSP, 0 if not. 
0000 161 : It is assumed that certain CPUs must have MRSP TUS8s. 
0000 166 ; Current) only the 11/730 must have an MRSP TUS8. 
0000 163: The 11/780 and’ 11/730 may have MRSP TUS8s, but it is 
0000 164; not essential that MRSP be used. 
0000 165; 
$383 Ios i 
944 168 CONSDD_START: 3; Label to mark start of driver 
0000 170 DD_SELECT: 
eeeeeets"e s Saas fa tne ait : peruse Tye gees not speak MRSP 
0008 138 CPUDISP <<780,CPU_780>,- : 11/780 
44 174 <750,CPU_750>,- : 11/750 
00 175 <730,CPU_730>,- : 11/730 
0008 176 <790,CPU_790>>,=- : 11/790 
4 177 ENVIRON=VMB; 
3 17 CPU_780: 
bRe 179 CPU-790: } 
05 0035 190 RSB ; Do not use this driver 
BB cou ro 
00000044 ' GF D6 0036 188 a “INCL G*MRSP ; Use MRSP (and fall through to c nm code) 
tt 188 CPuU_750: ; ; 
50 06 O03C 186 INCL RO 3; Use this driver 
05 OO3E 187 RSB 
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NO3F 
vVO3F 
003F 
it 
O3F 
00000010 003F 
00000014 003F 
003F 
003F 
003F 
003F 
003F 
OO3F 
00000000 3F 
00 0043 
00 0044 
58 45 2€ 52 45 56 49 52 44 44 44 00° 0045 
45 0051 
0c 0045 
05 
woos gr on 
o ote & Be 
008 BF $3 
06 
06 
06 
067 
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i 
67 
$f 
67 
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46-SEP-1984 
-SBTTL Console TUS8 Driver 


; Inputs: 
; R1 Address of page table for virtual => physical mappin 
3 Re Base VPN of tronster (Bits 29:9 of RIB)” reat 
; R LBN for current piece of transfer 
: R8 Size of transfer in bytes 
3 RF Address of the RPB 
: R10 Starting address of transfer 
: FUNC(AP) 1/0 operation (IO$_READLBLK or IOS$_WRITELBLK only) 
: MODE(AP) Address interpretation mode: 
: => Physical, 1 => Virtual 
3 Outputs: 
; RO Status code: 
: SS$_NORMAL Successful transfer 
3 SS$_BUFBYTALI Odd byte count 
: SS$_CTRLERR Fatal controller error 
FUNC = 16 
MODE = 20 
> OWN STORAGE: 
STKPTR: .LONG 0 3; Saved stack pointer 
INIT: .BYTE 0 : TUS8 initialized flag 
MRSP: .BYTE 0 ; MRSP protocot flag 
DDNAME: .ASCIC /DDDRIVER.EXE/ : Driver file name 
CONSDD_DRIVER: 
PUSHR #*M<R1,R2,R8,R10,R11> ; Save input registers 
BLBC R8,5$ 3; Branch if even byte count 
MOVZWL  #SS$ BUFBYTALI :RO ; Error = odd byte count 
POPR #°M<R1,R2,R8.R10,R11>  : Restore registers 
5$: MOVL SP,STKPTR ; Save stack pointer 


: aodes match, then we can 


; thon the buffer address has to be translated us 
. ointe * 
; howe virtual then we have to double map the buffer using a spare 


There are 4 possibilities concerning mapping: the 1/0 can be 
done virtual or physical (MODE(AP)) and we can be suecuting virtual 
or physical (contents of processor register PRS$_MAPEN). If both 
Pst copy data to/from the user buffer. 
the 1/0 is to be done virtual and we are exequt ing physical 
ng the page table 
sical and we are 


to by R1. If the 1/0 is to be done ph 


ae =p 
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FEM OO—0 -— 10 
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b rte s+ ov 4-4 _~J 
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COOOCOCOCoCooO 
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SNF MOOOOOOOOE SNH 9 FP NNN 
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rf: : PTE. At this point, we just compute a mapping switch in R11 as follows: 

46 : 0 Both modes metch, just copy the data 
47 ; 1 Do virtyes => physical translation using page table 
48 ; -1 Do physical => virtual mapping using a spare PTE 
: MFPR #PRS_MAPEN,R11 ; Get mapping enabled switch 
MNEGL 1 3 1 


SSIS NNSA AAA AAAAAA MMMM UIT 


~~ 
NAA AN OC ODNAUE WIN $0 OONAUE WN 0 ODNAUE WAR O OONOULS WHO 


SOOO00000 00 00000000000 0900 09 00 CO 


0 


Negate it 
ADDL MODEC(AP),R11 Add 1/0 mode switch 


mova R1,R6 ; R6 = Addr. pf page tbl, R7 = Base VPN 
BSBW DO_MAPPING ; Initialize mapping if required 

TSTB INTT i; Is it necessary to initialize TUS8? 
BNEQ 10$ 3 No 


; Initialize TUS8. This code is executed the first time the 


; after exiting with an error. 


: driver is called and the next time the driver is called 


MTPR &#CSTS_M_BREAK,#PRS_CSTS ; Set BREAK bit in trans. csr 
CLRL R ; R2 contains null characters 
BSBW XMIT_TWO_CHARS : Send two nulls 
MTPR #0,#Pr$_CSTS 3 Clear BREAK bit 
FPR #PR$_CSRD,RO 3; Clear receive buffer 
MOVZWL #DD_INIT@B+DD_INIT,R2  ; R2 contains two INIT characters 
SBW XMIT_TWO_CHARS : Send two INIT characters 
BSBW RECV_ONE_ CHAR 3; Receive a character 
CMPB RS #6D_CONTINUE i Is it continue? 
BNEQ 32$ ; No, error : 
INCB INIT ; So that we don’t execute this code again 
; Perform the 1/0 transfer. Register usage is: 
5 RO Scratch 
$ R1 Loop counter 
3 R Character to/from TUS8 
3 R Character received from TU5S8 
: R4 Checksum 
; R5 Lag tcal block number 
: R6 Address of page table 
3 R? Virtual page number of buffer 
: R Size of remaining buffer (in bytes) 
: Ro Address of 
3 R10 Address of current spot in buffer 
; R11 Mapping switch 
ASSUME DD_WRITE EQ DD_READ+1 
ASSUME DD_DATA EQ 1 
108: CLRL R4 : Clear checksum 
MOVZWL #1088+DD_CNTRL,R2 ; Command packet and byte count 
BSBW XMIT_TWO_UPDSUM : Send them 
MOVZBL #DD_READ[R2 ; Assume read command 
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21 10 A o QAA 1 CMPL FUNC(AP) ,#I10$_READLBLK ; Is it a read? 
0 1 pA ¢ BEQL 20$ 3; Yes 
5 6 8 INCL R ; No, convert to write comman 
00DB 3 Be 208: BSBw XMIT_TWO_UPDSUM ; Send command and modifier (0) 
08 88 : The unit number of the cons } boot device is olweys zero. 
0B5 : This is a result of the 1%/ console implementat pon. ware 
Bpee 3 3 logical device CSA1: is actually physical device D 
52.4 $682 10 CLRL R2 ; Set Unit # and Switch fields 
8A AF 95 00B7 11 TSTB MRSP ; Does this TU5S8 speak MRSP? 
06 ~=«1 Reet \¢ BEQL 25$ : ranch if no 
00 52 0B 5 OBC 1 8BSS #<MRSP lye R2,25$ : Set MRSP switch 
00CD poce 14 258: BSBW XMIT_T@O_UPD : Send unit # and switches (0) 
5 D4 O0C 15 CLRL R : Set sequence number ‘(unused field) 
00c 0 oocs 16 BSBW XMIT_TWO_UPDSUM ; Send sequence number (0) 
52. 58 C 00c8 17 MOVZWL : Byte count 
00¢ 0 00cB 318 SBW  XMIT_TWO_UPDSUM ; Send it 
_-. 2 C OOCE 19 MOVZWL 3; Block number 
00BC 30 00D1 320 SBW xatt TWO_UPDSUM > Send it 
52 54 C 00D4 $! MOVZWL R4,R 3; Checksum 
008c 4930 «(0007s 3 j BSBW SS OXMIT_T : Send it 
21 10 AC 01 OODA 32 CMPL RUNCTAPS 7 ros: -READLBLK ; Is it a read command? 
40 13 OODE 24 BEQL 50$ 
00E0 1 
QOEO 6 : 
QOEO $56 3 3; Do a write to the TUS8 
00E0 ; 8 
00DD 30 O0ED $3 $0$: BSBW RECV_ONE_CHAR 3; Receive one character 
10 52 91 Q0E3 0 CMPB R2,#B0 _ CONTINUE ; Is it CONTINUE? 
40 12 OO&6 331 328:  BNEQ 528 ; No, error 
54 D4 OO0E8 3. CLRL RG 3; Clear checksum 
51 80 8F 9A OOEA $3 MOVZBL #128,R1 3; Number of bytes to send 
58 51 D1 OOEE 34 CMPL R1,R8 3 ts it less than remaining byte count? 
03 1F OOF1 335 BLSsu 35 : Yes 
51 58 pdO OOF3 36 MOVL R8,R1 : NS. use remaining byte count instead 
52 51 08 78 OOF6 37 35$: ASHL #8,R1,R2 3; Put byte count he second byte 
52 06 OOFA 38 INCL : Fla yte = A 
0091 30 OOFC 39 BSBW XMIT_TWO_UPDSUM : Send f ag byte” ~ byte count 
) ea C6 OOFF 40 DIVL ; Convert byte count to word count 
0003 += 30 0192 41 40$:  BSBW : TeyTE : Get a byte from memory in R3 
=> 0° 010 $s MOVL 3; Save byte in R2 
00cD 430 0108 34 BSBW cefavTe BCTE : Get another byte from memory in R3 
52 08 08 rh ‘? 8198 44 INSV R ; Put it in second byte of R2 
— 10 011 45 SBB anit, tos’ “OppsuM : Send two bytes 
ED 51 —sF 5 Oiig 46 SOBGTR R1,40$ : Repeat until byte count is 0 
a. . ea oe OY 47 MOVZWL R4-R2 ; Get checksum 
7¢ «#10 0118 348 BSBB = XMIT_TWO_CHARS : Send it 
58 D5 OIA 49 TSTL R 3; Any more data to send? 
C2 ile piie 50 BNEQ 30$ : Yes, send another packet 
mot ie 51 BRB END_OF_DATA 3; No, get End packet 
| Bb ae 
! ae 3; Do a read from TUS8 
54 Re 1 2 bos: CLRL R4 ; Clear checksum : 
0088 0 0122 5 BSBW RECV_TWO_UPDSUM ; Get flag byte in R3, byte count in R2 
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OOwW-O 7 FO 0 OS | OO" 9 
MPOM—OOMOoo OVI Ono & 


DOA HF | NID VNYUIWOMOOOOOOM POOWMOCOWOMProuw 
WRI OS OOO NA UE Wt DO DNOA UNE WR 0 OO NOU EAN" OWOONOUL WT 


POON E SLL LLLLL LL 


: We've sent or 
3 packet with a 


END _OF DATA: 


received all the data. 


success code. 
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BN sos, GREE SS -ERRAATA fic deesdawes: 
"-DIVL3. «#2 TR2,R1 : Convert byte count to word count in R1 
55$: SBB RE CV twO_UPDSUM : Receive next two data bytes in R3, R2 
SBW TBYTE ~ ; Store first byte in . mory 
MOVZBL R3 3; Move second byte to R 
SBW Race YTE ; Store second byte in memory 
SOBGTR ; Repeat until byte _count is 0 
SBB. se RECV_TWO_CHARS : Get checksum in R3, R2 
INSV R2, 48,48, R3 3 Assemble checksum into one word 
guce Bb’ CRROR 5 2 checksum correct? 
3; No, error 
TSTL R8~ 3; Anymore data to receive? 
BNEQ 50$ ; Yes, receive next data packet 


Make sure we receive an end 


LRL 4 ; Clear checksum 
BSBB nS, 46D TWO_UPDSUM ; Get flag byte and byte count 
CMPB CATR TRL : Is it a command packet? 
BNEQ 3; No, error 
BSBB ye TWO UPDSUM ; Get opcode and success/failure byte 
CMPB #50 Ml : Is it an end packet? 
BNEQ 3; No, error 
TSTL 3; Is it success? 
BLSS Bb “ERROR ; No, error 
MOVL #47R1 ; Read remainder of packet 
10$: BSBB RECV_TWO_UPDSUM ; 
SOBGTR R1,10$ : 
SBB. s-RECV_TWO_CHARS : Read checksum in R3, R2 
INSV R2,48,#8,R3 : Form checksum in R3 
CMPW ° 3; Is checksum correct? 
NEQ DD_ERROR ; No, error 
MOVZWL asst NORMAL ,R ; Return success 
A oty Am<R1,R2,R8, R10, R11> ; Restore registers 
DD_ERROR: 
CLRB INIT : Initialize TUS8 on next entry 
MOVL STKPTR .; Restore stack pointer 
POPR #*McRi a R8, ey. R11> ; Restore registers 
MOVZWL #SS$_CTRLERR. : Set failure status 
$B ; Return and retry 


SOOoOooCOCOCOCOCOCOOSOCOCCOCOCOOCOOOCOOCOCOOO OOOO COOOOOOOOOOOOOOOO: 
ee et a et a a a a a a a DD a aD a a a a a ad a ad a oad od 


ee ee ek ee el ell ee ee ee oh ah ah ah ahradrah ah ad Ab ab ab ahah ad ahah abiabah ah ad 


| ~OOODOOOOOCOOO0O00O00C OO ¥)CO 000000 00 00 COCO 


FUN OOONOUSE 
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244 

3; XMIT_TWO_UPDSUM = Transmit two characters and update checksum 
3 XMIT-TWO_CHARS = Transmit two characters 

; XMITIONE-CHAR = Transmit one character 


Inputs: 
R2 Contains one or two characters in low bytes 
RG Checksum so far 


—-——_---—-—- _ a 


d. 7 
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| 138 jg; Cutouts: Updated check 
3 ated checksum 
| 19019 fee . 
190 $18 
190 419 XMIT_TWO_UPDSUM: 
54 52 =A 139 420 ADDW = R2, RG ; Add two characters to checksum 
54 00 OD 133 : 1 ADWC #0,R4 ; Add carry 
a186 4 g XMIT_TWO_CHARS: 
38 DD 138 424 PUSHL ; Save input on stack. 
| ee 9A 019 425 MOVZBL R2,R2 ; Zero aT bytes of data. 
05 10 0198 4 : BSBB nit ONE_CHAR : Transmit one character 
52 8€ F8 8F 78 0190 4&4 ASHL #-8, TSP)F,R2 ; Retrieve second character 
BA : 8 ; and fall through to transmit it 
O1A2 430 XMIT_ONE_CHAR: 
50 1€ DB OIA 431 AFP #PR$_CSTS,RO ; Get transmit status 
F950 «07 «CET «COOTA 432 BBC #CSTS_V_READY,RO,XMIT_ONE_CHAR ; Loop until ready 
1F 52 DA O1A9 43 MTPR R2,#PRS-CSTD ;"Transmit character 
0S OAC 434 RSB 
O1AD 3 435 
O1IAD 436 
Q1AD 437 ;+4 
Q1AD 438 ; RECV_TWO_UPDSUM - Receive two characters and update checksum 
QIAD 439 ; RECV_TWO_CHARS = Receive two characters 
O1AD 440 ; RECV_ONE_CHAR = Receive one character 
QIAD 441 ; 
Q1AD 442 ; Inputs: 
Q1AD 443 ; RG Checksum so far 
01AD 444 ; 
O1AD 445 ; Outputs: : 
QIAD 446 ; R2 Most recently received character 
Q1AD 447 ; R3 Previous character in low byte 
Q1AD 448 ;-- 
Q1IAD 449 
O1AD 450 RECV_TWO_UPDSUM: ¢ 
OC 10 QO1AD 451 BSBB RECV_TWO_CHARS ; Receive two characters in R3, R2 
53 08 08 25 FO O1AF +28 INSV R2,48,#8°R3 ; Put second character into R35 
» > AO QO1B4 45 ADDW R3,R4 ; Add two characters to checksum 
54 00 o0d8 O1B7 454 ADWC #0,R4 3; Add carry to checksum 
0S OBA 455 RSB 
018B 456 
0188 457 RECV_TWO CHARS: 
93 10 0168 $28 +g ONE _CHAR ; Get one character in R2 
53 2 9A O01BD 45 MOVZBL R2,R3 3; Save first character in R3 and 
1c0 460 ; fall through to get second character 
01C0 461 
01¢0 ra RECV_ONE_CHAR: ; 
50 1C dB OIC 46 AFPR #PRS_CSRS,RO ; Get receive status 
F950 07)—CsEW«O1C3: S46 BBC #CSRS_V_DONE,RO,RECV_ONE_CHAR ; Loop until done 
52. 1D 8 1¢ 465 MFPR #PRS_CSRD.R2 ; Get next character 
FE76 CF 89 1CA 46 TSTB MRSP 3; Does this TUS8 speak MRSP? 
9 13° OIC 46 BEQL 10$ ; Branch if not 
ee DA Q1D 46 MTPR #00 _ CONTINUE ,#PRS_ CSTD : Send CONTINUE character 
A6 52 «(OF:~=CEOs*O01D 469 10$: BBS #CSRD_V_ERROR,R2,0D_ERROR ; Branch if data overrun 
mt Soa 
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DDBTDORIVR = CONSOLE TUS8 BOOT DRIVER 15-SEP-1984 23:48:5 AX/VMS Macro v04-00 Page 10 
_v04-000 Console Tus8 Driver 273E = 1 bbe 33:58:35 Heoors sre DDBTDRIVR.MAR; 1 . (4) 
01D sre 
1D 473 ;+4 
1D 474 ; GETBYTE = Subroutine to get a byte from memory 
12 of? ; PUTBYTE = Subroutine to store a byte in memory 
; 
| 1 ‘7 : These two subroutines do two things special: 
1D 55 ; 1) Since the floppy always reads or writes 128 bytes 
1D 480 ; these routines simply return if the byte count is zero. 
01D 481 ; 2) These routines take care of page boundaries if 
18 rt 3 mapping is required. 
ib rh 3; Inputs: 
108 te? 3 R3 Byte to store (PUTBYTE) 
1D8 486; R6 Address of page table 
0108 487 ; R? Virtual page number of buffer 
0108 488 ; R8 Size of remaining buffer (in bytes) 
01D8 489 ; R10 Address of current spot in buffer 
0108 490 ; R11 Mapping switch: /‘ ; 
01D8 98491 ; -1 Do physical => virtual map 
0108 492 ; 0 No mapping required ; 
0108 493; 1 Do virtual => physical translation 
01D8 494 ; 
0108 495 ; Outputs: 
0108 496; R3 Byte fetched from memory (GETBYTE) 
0108 497 ;-- 
0108 498 
01D8 499 -ENABL LSB 
01D8 500 
0108 501 GETBYTE: 
53 D4 01D8 208 CLRL R3 ; Return 0 if byte count = 0 
58 05 ODA 50 TSTL R8 : Is byte count 0? 
2F 4613 «©01DC:)=—s «504 BEQL 90$ : Yes 
53 BA 9A O1DE 505 MOVZBL (R10)+,R3 ; Get byte 
07 11 O1E1 506 BRB 10$ ; Branch to common code 
QO1E3 507 
Ht 508 
O1E 509 PUTBYTE: 
58 DS O1EF3 510 TSTL R8 ; Is byte count 0? 
26 13 OWS = 511 BEQL 90$ 3 Yes 
BA 53 90 O1E? 216 MOVB R3,(R10)+ 3; Store byte 
O1EA 51 
OIEA 514 
58 D7 QOIEA 515 108: DECL ; Decr. byte count 
1f 613 D1EC 8 516 BEQL 90$ ; Reached zero 
SA OFF 8F B3 HH 517 BITW #VASM_BYTE,R10 ; Did address overflow onto new page? 
18 12 OF 218 BNEQ 908 ; No 
57 D6 OFS 51 INCL R7 : Yes, increment page number 
O1F7 259 
SIE? 852; Fall through t 
3 Fa rough to ... 
O1F7 é : 3 
1F7 = 5524 
1F7 5 
1F7 § pet : , 
giee 3 ; DO_MAPPING = Subvroutine to perform necessary mapping 


' 
j 


DDOBTDRIVR = CONSOLE TUS8 BOOT DRIV 
88 Console fuse Driver 
O1F7 9 ; Inputs 
1F7 ; 0; r 
Fp 833} 
7 3 : 3 
O1F7 534; 
O1F7 535; 
O1F7 536; 
OIF? 838: out 
3; Output 
O1F7 238 3 - 
pity 279 joo 
1F7 41 
O1F7 248 DO_MAPPI 
5B DOS O17 54 
12 13° O1F9 544 
11 19 O1FB 545 
FFFFFEOO BF CA O1FD 546 
0204 547 
DO 0204 268 
FO 8 08 ee 
05 0D 50 90$: 
O20E 551 
020E 225 
O20E 553; 
O20E 554; 
O20E 555; 
00 020 556 ioos: 
O20F 557 
O20F 558 
O20F 559 
0000020F O20F 560 
O20F 561 
O20F 562 


58 
50 = 6647 
5A 15 09 50 
l 


ER 


S: 
R10 


NG: 
TSTL 


HALT 


Address of page table 

Page number of buffer 

Address to ma 

Mapping switch: 
-1 Do physical => virtual map 

0 No mapping required 

1 Do virtual => physical translation 


Address to use 
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R11 ; Any mapping required? 

90$ ; No . 

100$ ; Yes, map physical to virtual | 
#*C<VASM_BYTE>,R10 :; Yes, translate virtual to physical 


(R6)CR7],R0 


Clear everything but byte offset 
N inR 


; Get PF . 
RO, #VASV_VPN,#PTESS_PFN,R10 :; Insert PFN after byte offset 


3; Map physical to virtual 


3; Not implemented yet 


-DSABL LSB 
CONSDD_DRVSIZ=.-CONSDD_START 


- END 


1 
4) 


— 
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DDBTORIVR 
Symbol table 


CSRB_V_ERROR 


DO" MAPPING 
END_OF_DATA 


ERROUT 
EXESGB_CPUTYPE 
GETBYTE 

INIT 
10$_READLBLK 
MODE 


MRSP 
MRSP_ SWITCH 
Pi D 


= CONSOLE TUS8 BOOT DRIVER 


ao 
= 
s i 
= 00000004 
= 80990003 
= SRR 
= 90000001 
= 00000000 Rs 02 
= 0000004 
0000052 R «03 
= 9000020 
st 
a90000%¢ R08 
90000035 R 03 
et 
= 
00000007 
= 00000001 
= 00000007 
» eee 
= 00000010 
= 00000091 
= 00000040 
0000017) R—s«é3 
= 00000008 
00000000 R sO 
= 00000003 
QOO00IF7 R —s-O3 
wee bine Ree | 
eeeeeree - 03 
= 00000010 
000001D8 R sé 
0000004 03 
= 00000021 
= Ooppbbae R(O8 
= 00900008 
= B900ppit 
= 
s 1F 
= Q000001E 
= 90000038 
: Babee 
= 00000004 
= 90900018 
it 
18B R 
sais 
= 0000000 


15-SEP- 
b-SEP- 
SS$_BUFBYTALI 
SSS$_CTRLERR 
SS$~ NORMAL 
STKPT 
VASM_BYTE 
ASV 


H 
XM1T" TWO CHARS 
XM1T-TWO-UPDSUM 


1986 23:08:5 


§ yansyas Macro Vv04-00 
BOOTS.SRCJDDBTDRIVR.MAR; 1 

sani 

SU0090) | 

$0001 FF 

0000009 

00001A2 R 03 

B08 138 R 03 

0000190 R 03 


Page 


neo 
en 


i 
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H 
| DDBTDRIVR = CONSOLE TUS8 BOOT DRIVER 177 360=138% 93:68:36 yan/ves Macro v04-00 Page 
| Psect synopsis 46-SEP-1984 :03:5 BOOTS. SRCJDDBTORIVR.MAR; 1 


Sarwar ora oeenes ¢ 


: 
| ! Psect synopsis ! 


oS 
PSECT name Allocation PSECT No. Attributes 
00000000 < of 0¢ OO.) NOPIC USR CON ABS LCL oo ae NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 ( -) Q1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
BOOTDRIVR_4 BODO SF ( 40.) § ( ¢:} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
BOOTDRIVR_2 QO00020F ¢« 527.) O03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
ete eietoad wet ew ern ame wm em 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 08: 80:00. 06 00:00:00.45 
Command processing 108 00:00:00.6 00:00:02.65 
Pass 1 337 is SE 89 #2076849 
Symbol table sort 0 00:00:01. 0 a Og ae 
Pass 2 108 00:00:02.30 00:00:05.25 
Symbol table output 10 00:00:00.09 00:00:00.09 
Peect synopsis output 1 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 Bp 8080-80 
Assembler run totals 595 00:00:15.71 00:00:356.94 


The working set Limit was 1500 pages. 

62296 bytes (122 pages) of virtual memory were used to buffer the intermediate co 

There were 60 pages of symbol table space allocated to hold 1088 non-local and 53° lecel symbols. 
62 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

28 pages of virtual memory were used to define 24 macros. 


ewe mm e mr m een eee wee mer eee eo at 


Macro library name Macros defined 
_$255$DUA28: BOOTS. 5.0 R00 -MLB;1 1 
$255$DUA28: 6 
“$255$DUA28: evs IBISTARLET. MLB; 2 8 

TOTALS (all Libraries) 15 


1256 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DDBTDRIVR/OBJ=0BJ$:DDBTDRIVR MSRC$:DDBTDRIVR/UPDATE=(ENH$:DDBTDRIVR) *EXECML$/L1IB+LIB$:S00TS.MLB/LIB 


a 
fw 


non 
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